home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / date.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  10KB  |  540 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "date.d"
  17. #include <string.h> 
  18. #include <math.h> 
  19. #include <time.h> 
  20.  
  21. #define    CLASS    Date_c
  22. #define    ivType    Date_iv_t
  23.  
  24. #include "generics.h"
  25.  
  26. object    Date_c;
  27.  
  28.  
  29. #line 26 "date.d"
  30. static gLongValue_t longValue; 
  31. static gChangeLongValue_t changeLongValue; 
  32.  
  33.  
  34. static char *Dtfmt(long d, char *s) 
  35. { 
  36.     int i; 
  37.     char v[7]; 
  38.  
  39.     s[8] = '\0'; 
  40.  
  41. #line 44 "date.d"
  42.     if (d < 101L) { 
  43.         for (i=0 ; i != 8 ; ) 
  44.             s[i++] = ' '; 
  45.         return(s); 
  46.     } 
  47.     d %= 1000000L; 
  48.     sprintf(v, "%6ld", d); 
  49.     s[0] = v[2] == '0' ? ' ' : v[2]; 
  50.     s[1] = v[3]; 
  51.     s[2] = '/'; 
  52.     s[3] = v[4]; 
  53.     s[4] = v[5]; 
  54.     s[5] = '/'; 
  55.     s[6] = v[0] == ' ' ? '0' : v[0]; 
  56.     s[7] = v[1] == ' ' ? '0' : v[1]; 
  57.     return(s); 
  58. } 
  59.  
  60. #if 0 
  61.  
  62. static char *Dtfmt4(long d, char *s) 
  63. { 
  64.     int i; 
  65.     char v[9]; 
  66.  
  67.     if (d <= 0L || d > 99991231L) { 
  68.         for (i=0 ; i != 10 ; ) 
  69.             s[i++] = ' '; 
  70.         s[i] = '\0'; 
  71.         return(s); 
  72.     } 
  73.     sprintf(v, "%8ld", d); 
  74.     s[0] = (v[4] == '0') ? ' ' : v[4]; 
  75.     s[1] = v[5]; 
  76.     s[2] = '/'; 
  77.     s[3] = v[6]; 
  78.     s[4] = v[7]; 
  79.     s[5] = '/'; 
  80.     s[6] = v[0]; 
  81.     s[7] = v[1]; 
  82.     s[8] = v[2]; 
  83.     s[9] = v[3]; 
  84.     s[10] = '\0'; 
  85.     return(s); 
  86. } 
  87.  
  88. #endif 
  89.  
  90. static long Jul(long x) 
  91. { 
  92.     long d, y; 
  93.     long m; 
  94.  
  95.     if (x <= 0L) return(x); 
  96.     y = x / 10000L; 
  97.     m = (x % 10000L) / 100L; 
  98.     d = x % 100L; 
  99.     d += (long) (.5 + (m - 1L) * 30.57); 
  100.     if (m > 2L) { 
  101.         d--; 
  102.  
  103.  
  104.  
  105.  
  106.         if (0L != y % 400L && 0L != y % 4L) 
  107.             d--; 
  108.         else if (0L != y % 400L && 0L == y % 100L) 
  109.             d--; 
  110.     } 
  111.     d += (long) (365.25 * --y); 
  112.     d += y / 400L; 
  113.     d -= y / 100L; 
  114.     return(d); 
  115. } 
  116.  
  117. static long Cal(long d) 
  118. { 
  119.     long y, m, t; 
  120.  
  121.     if (d <= 0L) return(d); 
  122.     y = (long)(1.0 + d / 365.2425); 
  123.     t = y - 1L; 
  124.     d -= (long) (t * 365.25); 
  125.     d -= t / 400L; 
  126.     d += t / 100L; 
  127.     if (d > 59L && 0L != y % 400L && (0L != y % 4 || 0L == y % 100L)) 
  128.         d++; 
  129.     if (d > 60L) 
  130.         d++; 
  131.     m = (long)((d + 30L) / 30.57); 
  132.     d -= (long) floor(.5 + (m - 1L) * 30.57); 
  133.     if (m == 13) { 
  134.         m = 1; 
  135.         ++y; 
  136.     } else if (!m) { 
  137.         m = 12; 
  138.         --y; 
  139.     } 
  140.     return 10000L * y + m * 100L + d; 
  141. } 
  142.  
  143. static char *Dyofwk(long d, char *s) 
  144. { 
  145.     int i; 
  146.     char *p; 
  147.  
  148.     if (d <= 0L) 
  149.         if (s) { 
  150.         *s = '\0'; 
  151.         return(s); 
  152.     } else 
  153.         return(""); 
  154.     i = Jul(d) % 7L; 
  155.     switch (i) { 
  156.         case 0: p = "Sunday"; break; 
  157.         case 1: p = "Monday"; break; 
  158.         case 2: p = "Tuesday"; break; 
  159.         case 3: p = "Wednesday"; break; 
  160.         case 4: p = "Thursday"; break; 
  161.         case 5: p = "Friday"; break; 
  162.         case 6: p = "Saturday"; break; 
  163.         default: p = ""; break; 
  164.     } 
  165.     if (s) { 
  166.         strcpy(s, p); 
  167.         return(s); 
  168.     } else 
  169.         return(p); 
  170. } 
  171.  
  172. static char *Mmofyr(int m, char *s) 
  173. { 
  174.     char *p; 
  175.  
  176.     if (m <= 0) 
  177.         if (s) { 
  178.         *s = '\0'; 
  179.         return(s); 
  180.     } else 
  181.         return(""); 
  182.     m = (m - 1) % 12; 
  183.     switch (m) { 
  184.         case 0: p = "January"; break; 
  185.         case 1: p = "February"; break; 
  186.         case 2: p = "March"; break; 
  187.         case 3: p = "April"; break; 
  188.         case 4: p = "May"; break; 
  189.         case 5: p = "June"; break; 
  190.         case 6: p = "July"; break; 
  191.         case 7: p = "August"; break; 
  192.         case 8: p = "September"; break; 
  193.         case 9: p = "October"; break; 
  194.         case 10: p = "November"; break; 
  195.         case 11: p = "December"; break; 
  196.         default: p = ""; break; 
  197.     } 
  198.     if (s) { 
  199.         strcpy(s, p); 
  200.         return(s); 
  201.     } else 
  202.         return(p); 
  203. } 
  204.  
  205. static short *Timemark(short int *v) 
  206. { 
  207.     struct tm *a; 
  208.  
  209.  
  210.  
  211.  
  212.     time_t t; 
  213.  
  214.     time(&t); 
  215.     a = localtime(&t); 
  216.     v[0] = a->tm_year + 1900; 
  217.     v[1] = a->tm_mon + 1; 
  218.     v[2] = a->tm_mday; 
  219.     v[3] = a->tm_hour; 
  220.     v[4] = a->tm_min; 
  221.     v[5] = a->tm_sec; 
  222.     v[6] = 0; 
  223.     return v; 
  224. } 
  225.  
  226. static long _Today(void) 
  227. { 
  228.     short v[7]; 
  229.  
  230.     Timemark(v); 
  231.     return 10000L * (long) v[0] + 100L * (long) v[1] + (long) v[2]; 
  232. } 
  233.  
  234. static long Date_ymd(long date, int *year, int *month, int *day) 
  235. { 
  236.     register int temp; 
  237.  
  238.     temp = (int) (date % 10000L); 
  239.  
  240.     if (year) *year = (int) (date / 10000L); 
  241.     if (month) *month = temp / 100; 
  242.     if (day) *day = temp % 100; 
  243.     return(date); 
  244. } 
  245.  
  246. static long Ymd_date(int year, int month, int day) 
  247. { 
  248.     return((long) year * 10000L + (long) month * 100L + (long) day); 
  249. } 
  250.  
  251. static char *Num_sufx(int d) 
  252. { 
  253.     register int i = d % 10; 
  254.  
  255.     if (i == 1 && d != 11) 
  256.         return "st"; 
  257.     else if (i == 2 && d != 12) 
  258.         return "nd"; 
  259.     else if (i == 3 && d != 13) 
  260.         return "rd"; 
  261.     else return "th"; 
  262. } 
  263.  
  264. static char *Time2(char *buf) 
  265. { 
  266.     short v[7], t=0; 
  267.  
  268.     Timemark(v); 
  269.     if (v[3] >= 12) { 
  270.         t = 1; 
  271.         if (v[3] > 12) v[3] -= 12; 
  272.     } 
  273.     sprintf(buf, "%2d:%2d %s", 
  274.         (int) v[3], (int) v[4], t ? "PM" : "AM"); 
  275.     if (buf[3] == ' ') 
  276.         buf[3] = '0'; 
  277.     return(buf); 
  278. } 
  279.  
  280. static char *DateFmt(char *buf, long dt, char *msk) 
  281. { 
  282.     int y, m, d; 
  283.     char tmp[20], *bp = buf; 
  284.  
  285.     if (dt <= 0L) { 
  286.         *buf = '\0'; 
  287.         return(buf); 
  288.     } 
  289.     Date_ymd(dt, &y, &m, &d); 
  290.     while (*msk) 
  291.         if (*msk != '%') 
  292.         *bp++ = *msk++; 
  293.     else 
  294.         switch (*++msk) { 
  295.         case '\0': 
  296.         break; 
  297.         case '%': 
  298.         default: 
  299.         *bp++ = *msk++; 
  300.         break; 
  301.         case 'W': 
  302.         case 'w': 
  303.         strcpy(bp, Dyofwk(dt, NULL)); 
  304.         bp += strlen(bp); 
  305.         msk++; 
  306.         break; 
  307.         case 'M': 
  308.         strcpy(bp, Mmofyr(m, NULL)); 
  309.         bp += strlen(bp); 
  310.         msk++; 
  311.         break; 
  312.         case 'm': 
  313.         strcpy(bp, Mmofyr(m, NULL)); 
  314.         bp += 3; 
  315.         msk++; 
  316.         break; 
  317.         case 'd': 
  318.         sprintf(bp, "%d", d); 
  319.         bp += strlen(bp); 
  320.         msk++; 
  321.         break; 
  322.         case 'D': 
  323.         sprintf(bp, "%2d", d); 
  324.         for ( ; *bp ; ++bp) 
  325.             if (*bp == ' ') 
  326.             *bp = '0'; 
  327.         msk++; 
  328.         break; 
  329.         case 'y': 
  330.         sprintf(bp, "%2d", y%100); 
  331.         for ( ; *bp ; ++bp) 
  332.             if (*bp == ' ') 
  333.             *bp = '0'; 
  334.         msk++; 
  335.         break; 
  336.         case 'Y': 
  337.         sprintf(bp, "%4d", y); 
  338.         bp += strlen(bp); 
  339.         msk++; 
  340.         break; 
  341.         case 'S': 
  342.         case 's': 
  343.         strcpy(bp, Num_sufx(d)); 
  344.         bp += strlen(bp); 
  345.         msk++; 
  346.         break; 
  347.         case 'n': 
  348.         sprintf(bp, "%d", m); 
  349.         bp += strlen(bp); 
  350.         msk++; 
  351.         break; 
  352.         case 'N': 
  353.         sprintf(bp, "%2d", m); 
  354.         bp += strlen(bp); 
  355.         msk++; 
  356.         break; 
  357.         case 'T': 
  358.         case 't': 
  359.         strcpy(bp, Time2(tmp)); 
  360.         bp += strlen(bp); 
  361.         msk++; 
  362.         break; 
  363.     } 
  364.     *bp = '\0'; 
  365.     return(buf); 
  366. } 
  367.  
  368. static long Add_days(long date, long days) 
  369. { 
  370.     if (date <= 0L) return(0L); 
  371.     return Cal(days + Jul(date)); 
  372. } 
  373.  
  374. static long Add_mon(long date, int months) 
  375. { 
  376.     int y, m, d; 
  377.     long mon; 
  378.  
  379.     if (date <= 0L) return(0L); 
  380.     Date_ymd(date, &y, &m, &d); 
  381.     mon = 12L * (long) y + (long) m + (long) months - 1L; 
  382.     y = mon / 12L; 
  383.     m = 1L + mon % 12L; 
  384.     date = Ymd_date(y, m, d); 
  385.     return(date); 
  386. } 
  387.  
  388. static long Add_year(long date, int years) 
  389. { 
  390.     int y, m, d; 
  391.  
  392.     if (date <= 0L) return(0L); 
  393.     Date_ymd(date, &y, &m, &d); 
  394.     y += years; 
  395.     date = Ymd_date(y, m, d); 
  396.     return(date); 
  397. } 
  398.  
  399. static int Valid_date(long d) 
  400. { 
  401.     return d == Cal(Jul(d)); 
  402. } 
  403.  
  404. static long Date_dif(long d1, long d2) 
  405. { 
  406.     return Jul(d1) - Jul(d2); 
  407. } 
  408.  
  409. imeth objrtn Date_im_gDayName(object self)
  410. { 
  411.     return gNewWithStr(String, Dyofwk(longValue(self), NULL)); 
  412. } 
  413.  
  414. imeth objrtn Date_im_gMonthName(object self)
  415. { 
  416.     int m; 
  417.     Date_ymd(longValue(self), NULL, &m, NULL); 
  418.     return gNewWithStr(String, Mmofyr(m, NULL)); 
  419. } 
  420.  
  421. imeth objrtn Date_im_gFormatDate(object self, char *msk)
  422. { 
  423.     char buf[80]; 
  424.  
  425.     return gNewWithStr(String, DateFmt(buf, longValue(self), msk)); 
  426. } 
  427.  
  428. imeth objrtn Date_im_gStringRepValue(object self)
  429. { 
  430.     char buf[15]; 
  431.  
  432.     return gNewWithStr(String, Dtfmt(gLongValue(self), buf)); 
  433. } 
  434.  
  435. cmeth objrtn Date_cm_gToday(object self)
  436. { 
  437.     return gNewWithLong(self, _Today()); 
  438. } 
  439.  
  440. imeth objrtn Date_im_gAddDays(object self, long days)
  441. { 
  442.     return changeLongValue(self, Add_days(longValue(self), days)); 
  443. } 
  444.  
  445. imeth objrtn Date_im_gAddMonths(object self, int months)
  446. { 
  447.     return changeLongValue(self, Add_mon(longValue(self), months)); 
  448. } 
  449.  
  450. imeth objrtn Date_im_gAddYears(object self, int years)
  451. { 
  452.     return changeLongValue(self, Add_year(longValue(self), years)); 
  453. } 
  454.  
  455. imeth int Date_im_gValidDate(object self)
  456. { 
  457.     return Valid_date(longValue(self)); 
  458. } 
  459.  
  460. imeth long Date_im_gDifference(object self, object dt)
  461. { 
  462.     ChkArgTyp(dt, 2, Date); 
  463.     return Date_dif(longValue(self), longValue(dt)); 
  464. } 
  465.  
  466. cmeth long Date_cm_gCalToJul(object self, long dt)
  467. { 
  468.     return Jul(dt); 
  469. } 
  470.  
  471. cmeth long Date_cm_gJulToCal(object self, long dt)
  472. { 
  473.     return Cal(dt); 
  474. } 
  475.  
  476. imeth long Date_im_gJulian(object self)
  477. { 
  478.     return Jul(longValue(self)); 
  479. } 
  480.  
  481. static void init_class(void) 
  482. { 
  483.     longValue = imcPointer(CLASS, gLongValue); 
  484.     changeLongValue = imcPointer(CLASS, gChangeLongValue); 
  485. } 
  486.  
  487. #line 488 "date.c"
  488.  
  489. objrtn    Date_initialize(void)
  490. {
  491.     static  CRITICALSECTION  cs;
  492.     static  int volatile once = 0;
  493.  
  494.     ENTERCRITICALSECTION(_CI_CS_);
  495.     if (!once) {
  496.         INITIALIZECRITICALSECTION(cs);
  497.         once = 1;
  498.     }
  499.     LEAVECRITICALSECTION(_CI_CS_);
  500.  
  501.     ENTERCRITICALSECTION(cs);
  502.  
  503.     if (Date_c) {
  504.         LEAVECRITICALSECTION(cs);
  505.         return Date_c;
  506.     }
  507.     INHIBIT_THREADER;
  508.     LongInteger_initialize();
  509.     if (Date_c)  {
  510.         ENABLE_THREADER;
  511.         LEAVECRITICALSECTION(cs);
  512.         return Date_c;
  513.     }
  514.     Date_c = gNewClass(Class, "Date", 0, 0, LongInteger, END);
  515.     cMethodFor(Date, gCalToJul, Date_cm_gCalToJul);
  516.     cMethodFor(Date, gToday, Date_cm_gToday);
  517.     cMethodFor(Date, gJulToCal, Date_cm_gJulToCal);
  518.     iMethodFor(Date, gJulian, Date_im_gJulian);
  519.     iMethodFor(Date, gAddYears, Date_im_gAddYears);
  520.     iMethodFor(Date, gMonthName, Date_im_gMonthName);
  521.     iMethodFor(Date, gDayName, Date_im_gDayName);
  522.     iMethodFor(Date, gFormatDate, Date_im_gFormatDate);
  523.     iMethodFor(Date, gAddMonths, Date_im_gAddMonths);
  524.     iMethodFor(Date, gDifference, Date_im_gDifference);
  525.     iMethodFor(Date, gAddDays, Date_im_gAddDays);
  526.     iMethodFor(Date, gStringRepValue, Date_im_gStringRepValue);
  527.     iMethodFor(Date, gValidDate, Date_im_gValidDate);
  528.  
  529.     init_class();
  530.  
  531.     ENABLE_THREADER;
  532.  
  533.     LEAVECRITICALSECTION(cs);
  534.  
  535.     return Date_c;
  536. }
  537.  
  538.  
  539.  
  540.